<text>New EnglandWashingtonSeattleMinnesotaPittsburghGreen Bay ClevelandCincinnatiChicagoTampa BayPhoenixNew York JetsNew OrleansLos Angles Rams</text>
<text>New EnglandWashingtonSeattleMinnesotaPittsburghGreen Bay ClevelandCincinnatiChicagoTampa BayPhoenixNew York JetsNew OrleansLos Angles Rams</text>
<script>on mouseUpPUT "" INTO XNAMEAsk "Name of New Player"Put It Into xnameIF XNAME IS NOT EMPTY THENPut xname&return after cd fld playersput 1 into xfind whole x in bkgnd field IDrepeat until x >17doMenu copy carddoMenu paste cardput xname into bkgnd field ownerset cantDelete of this card to falseput x+1 into xfind whole x in bkgnd field IDend repeatEND IFgo to card firstcardend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>136</left>
<top>123</top>
<right>229</right>
<bottom>301</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Players</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>228</left>
<top>123</top>
<right>266</right>
<bottom>300</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Score</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>133</left>
<top>103</top>
<right>228</right>
<bottom>121</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>229</left>
<top>103</top>
<right>280</right>
<bottom>121</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>150</left>
<top>308</top>
<right>265</right>
<bottom>332</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Calculate Score</name>
<script>on mouseUpPUT CD FLD DATE INTO XDATEput 1 into xput "" into cd fld scorefind whole x in bkgnd field IDrepeat until bkgnd field ID > XDATEput the ID of this card into xIDput Bkgnd field win1 into xCompfind whole x in bkgnd field IDrepeat until the ID of this card = xIDput bkgnd field owner into xnameput 0 into xscorePUT "" INTO bkgnd fld RESULTput 1 into yrepeat until y >18if line y of xcomp is not empty thenif line y of xcomp = line y of bkgnd fld win1 thenput xscore + 1 into xscorePUT "+" INTO line y of bkgnd fld RESULTend ifend ifput y + 1 into yend repeatpush this cardgo to card FirstCardfind xname in card fld playersselect the foundlineput word 2 of the selectedline into xlineput "Line "& xline & " of cd fld 2" into xline1select xline1put the selectedtext + xscore into the selectedlinepop cardfind whole x in bkgnd field IDfind whole x in bkgnd field IDend repeatput x+1 into xfind whole x in bkgnd field IDend repeatGO TO CARD FIRSTCARDend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>337</top>
<right>127</right>
<bottom>364</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Remove Player</name>
<script>on mouseUpAnswer "click Player To Delete"wait until the mouse is downselect the clicklinePut the selectedtext Into xnamedelete the selectedlineput 1 into xfind whole x in bkgnd field IDrepeat until x >19find whole xname in field ownerif the result is empty thendoMenu cut cardend ifput x+1 into xfind whole x in bkgnd field IDend repeatgo to card firstcardend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>338</top>
<right>408</right>
<bottom>361</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add Scores</name>
<script>on mouseUpAsk "Which Week" with cd fld dateput it into xNofind XNo && "master"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>299</left>
<top>50</top>
<right>416</right>
<bottom>73</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add Picks</name>
<script>on mouseUpAsk "Which Week" with cd field date +1put it into xNoAnswer "Click Player To Find"wait until the mouse is downselect the clicklinePut the selectedtext Into xnamego to next cardfind XNo && xNameend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>217</left>
<top>25</top>
<right>242</right>
<bottom>43</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Date</name>
<script></script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>170</left>
<top>25</top>
<right>215</right>
<bottom>44</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>188</left>
<top>381</top>
<right>214</right>
<bottom>406</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<name>?</name>
<script>on mouseUpshow card field expend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>23</left>
<top>77</top>
<right>433</right>
<bottom>317</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Exp</name>
<script>on mouseuphide card field expend mouseup</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>175</left>
<top>341</top>
<right>234</right>
<bottom>362</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpput "Master" & Return &cd fld players into cd fld setprintshow cd fld setprintAnswer "click Player To Print"wait until the mouse is downselect the clicklinePut the selectedtext Into xnameunmark all cardsmark cards where field owner contains xnameprint marked cardsunmark all cardshide cd fld setprint-- mark cards where field owner contains "Master"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>135</left>
<top>123</top>
<right>273</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>setprint</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text><span class="style3">layers</span></text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text><span class="style3">core</span></text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text>2</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>Week</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>Pier</text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>My wife and I enjoy picking the winners of the football games each week. In the past we have used a public domain program called office pool This no longer works so I wrote the Stak “Picks.hc” to do this.Print button prints the selected player or master cardsTo enter picks or scores click on the team name. The picks on player card, the final result on master card click calculateon first card The scripts are self explanatory. There are no guaranteesEnjoy.Pier L. Mancusi-Ungaro</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>MasterPierSally</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>7</text>
</content>
<name>FirstCard</name>
<script>on openCardput date() into xdateconvert xdate to secondsset the numberformat to 0put the abs of (( ((xdate/86400)- 32019) /7)+.357) into xdateput xdate into cd fld date --"Week "&end openCard</script>
 (January 1993).iso/Files/Game/N-P/ PICKS2.cpt/ PICKS2/BMAP_4514.png){kind=link}
 (January 1993).iso/Files/Game/N-P/ PICKS2.cpt/ PICKS2/PATs.png){kind=link}